home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / A-B / AC&TF.cpt / •AC&TF• Edited / background_72532.txt < prev    next >
Text File  |  1992-03-21  |  2KB  |  93 lines
  1. -- background: 72532 from stack: in
  2. -- bmap block id: 73329
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: Welcome
  6.  
  7.  
  8. -- part 1 (field)
  9. -- low flags: 81
  10. -- high flags: 0002
  11. -- rect: left=15 top=33 right=54 bottom=202
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 0
  15. -- font id: 3
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: LastDate
  20.  
  21.  
  22. -- part 3 (field)
  23. -- low flags: 80
  24. -- high flags: 0002
  25. -- rect: left=15 top=8 right=29 bottom=54
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 0
  29. -- font id: 3
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: GMTHere
  34.  
  35.  
  36. -- part 5 (field)
  37. -- low flags: 80
  38. -- high flags: 0001
  39. -- rect: left=112 top=14 right=34 bottom=267
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 0
  43. -- font id: 3
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: DSTObservedHere
  48.  
  49.  
  50. -- part 6 (button)
  51. -- low flags: 00
  52. -- high flags: A003
  53. -- rect: left=183 top=299 right=325 bottom=369
  54. -- title width / last selected line: 0
  55. -- icon id / first selected line: 0 / 0
  56. -- text alignment: 1
  57. -- font id: 0
  58. -- text size: 12
  59. -- style flags: 0
  60. -- line height: 16
  61. -- part name: Lock/Unlock All Fields
  62. ----- HyperTalk script -----
  63. on mouseUp
  64.   answer "Do you want to Lock or Unlock all the fields in the stack?" with "Lock" or "Unlock" or "Cancel"
  65.   if it is not "Cancel" then
  66.     set lockScreen to true
  67.     if it is "Lock" then
  68.       put true into newState
  69.     else
  70.       put false into newState
  71.     end if
  72.  
  73.     put the id of this card into startCard
  74.     go to first card of bg "Main"
  75.     set the lockText of bg field "State" to newState
  76.     set the lockText of bg field "Country" to newState
  77.     set the lockText of bg field "Country Code" to newState
  78.     set the lockText of bg field "Area/City Code" to newState
  79.     --set the lockText of bg field "City Names" to newState
  80.  
  81.     go to card "Credits"
  82.     set the lockText of card field "Credits" to newState
  83.  
  84.     go to card "Help"
  85.     set the lockText of bg field "Help" to newState
  86.  
  87.     go to startCard
  88.     set lockScreen to false
  89.  
  90.   end if
  91. end mouseUp
  92.  
  93.